Set scroll bar mode to right if set by X resources.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index e97d3752704eba57b2104570d3517fd073c6d33c..548cae9321c6ee1403c4337b4abb6e73fe1f3bb5 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2484,6 +2484,10 @@ order until succeed.")
   (if res-selection-timeout
       (setq x-selection-timeout (string-to-number res-selection-timeout))))
 
+;; Set scroll bar mode to right if set by X resources. Default is left.
+(if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right")
+    (customize-set-variable 'scroll-bar-mode 'right))
+
 (defun x-win-suspend-error ()
   (error "Suspending an Emacs running under X makes no sense"))
 (add-hook 'suspend-hook 'x-win-suspend-error)